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COLLECTION_EVENT: Procedure Options (Ident ('v04-000')); 
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/* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
/* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
/* ALL RIGHTS RESERVED. 


/* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH a ety ae le Be 


C F 
/* Sd | THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


/* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
oe sepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


/* DIGITAL ASSUMES NO RESPONSIBI 
/* SOFTWARE ON EQUIPMENT WHICH | 
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/*/ 

/t 

/%++ 

i FACILITY: MONITOR Utility 

he ABSTRACT: COLLECTION_EVENT AST Routine. 
t 


/* Queued from the EXECUTE_REQUEST routine each time a 
/* data collection is required. 
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/* ENVIRONMENT: 
/* 


/* VAX/VMS operating system. unprivileged user mode 
/* except for certain collection routines which 
/* run in EXEC or KERNEL mode to access system 
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/* 
/* AUTHOR: Thomas L. Cafarella, April, 1981 
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i MODIFIED BY: 

v03-015 TLC1085 Thomas L. Cafarella aend 4 iti: 14:00 
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Calculate scale values for Free and Modi st bar graphs. 


TLC1082 Thomas L. Cafarella 3-Jul-1984 11:00 
Force error message when playing back a file containing 
only one collection. 


TLC1072 omas L. Cafarella 17-Apr-1984 11:00 
Add volume name S DISK display. 
TLC1066 Thomas L. Cafarella 01-Apr-1984 11:00 
Add SYSTEM class. 
TLC1061 as L. Cafarella 18-Mar-1984 11:00 
Pres eee rdiske by allocation class. 

C1058 |, L. Cafarella 23-Mar-1984 10:00 
ri MODES class a 82 and non-782 input 


Files mixed in multi-file summary. 


TLC1051 Thomas L. Cafarella 11-Jan-1984 11:00 
Add consecutive number to class header record. 
PRS1002 Paul R. Senn caetenn 16:00 


GLOBALDEF VALUE symbols must now be | th a 
Use ZREPLACE pather than GLOBALDEF Lie by any equated 
symbols which are not 4 bytes in Length 


TLC1050 Thomas L. Cafarella 06-Dec-1983 11:00 
Change directory information in DLOCK class. 

TLCE1046 Thomas L. Cafarella 26-Aug-1983 18:00 
Force flush to occur after all classes uritten to file. 
TLC1040 Thomas L. Cafarella 15-Jun-1983 10:00 
Add directory node indicator to DLOCK class. 

ip Thomas L. Cafarella 06-Jun-1983 15:00 
Add homogeneous class type and DISK class. 

TLC1029 Thomas L. Cafarella 21-Apr-1983 10:00 
Correctly calculate ° ‘Interrupt Stack"’ string. 

TLC1028 Thomas L. Cafarella 14-Apr-1983 16:00 
Add interactive user "Tehte tee, 

TLCO014 Thomas L. Cafarella 01-Apr-1982 13:00 
Correct attached processor time reporting for MODES. 

TLC1011 Thomas L. Cafarella 29-Mar-1982 20:00 


Move system service names for SSERROR msg to static storage. 


v03-002 TLC1003 Thomas L. Cafarella 23-Mar-1982 13:00 
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Fix up module headers. 


v03-001 TLC1002 Thomas +. Cafarella 20-Mar-1982 13:00 
Move collection event flag to REQUEST.PLI for consolidation. 


Compress bar graph range for MODES and TOPCPU. 
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1144; #1 /* 
118: 7 /* | emmwwooweeoeee= Pern enone eee e eee ceececeee cocccee= eocccoccce= wooceoeennt 
118 ; 9 /* ‘ ! 
117 3 «1 /* ! INCLUDE FILES ! 
118: #1 /* ! ! 
119; 1 /* | mmm mmm nwo e ene e nee e eee seeeeenne cocecees- eoeccee=- woe ceeceos= eocccecce= oocceen+ 
hae Si 
isé : ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
$31 a /* 
+4 m /* | ewww eonoeeneeee= Pome m meme cece econ ee eeeecsee= eoececcceee=- eoecccoso- eocccoren- + 
93: 1 /* ! ' 
94: 1 /* ! SYSTEM SERVICE MACRO DEFINITIONS ' 
4 
HD 
44 { ZINCLUDE SYSSSETIMR; /* SSETIMR system service */ 


15 
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909 : 1 /* 

91 0 ; 1 /* i] ea we => ew ee DS ew oe mm oe mee a em (oe ee ee em ee me ce em ee ce ee ee we oe nm ee mom ee ee DS Sw ow | oo we Se ey eee GS ee we em Ge o> ee to ee ED oe a + 

911: 1 /* ' ' 

aig ee /* ! EXTERNAL STORAGE DEFINITIONS ! 

9135; 1 /* ! ' 

914 ; 1 /* lesane wy om Ge ee eo on a me weementaoaae . ee eee a ee Sesame amarecaser seo enaemaee cee eS ee ee ee + 

915 | 3 /*/ 

gig 1 

91 1 Declar 

918 1 MNRS eCLASMISS FIXED BINARY(31) GLOBALREF VALUE, /* Error message */ 

919 1 MNR$_SSERROR FIXED BINARY(31) GLOBALREF VALUE, /* Error message */ 

920 1 MNR$_BEGNLEND FIXED BINARY(31) GLOBALREF VALUE, /* Error message */ 

2 ; : MNRS$_COLLERR FIXED BINARY(31) GLOBALREF VALUE; /* Error message */ 

9 1 Declar 

924 1 COLL EV FLAG FIXED BINARY(31) GLOBALREF VALUE, /* Collection event flag */ 

925 1 MAX_CLASS NO FIXED BINARY(31) GLOBALREF VALUE, /* Maximum defined class number */ 

3 $ ! SKIP_TO_CCASS FIXED BINARY(31) GLOBALREF VALUE; /* Skip to class record indicator for READ_INPUT rtn */ 
928 1 Declare 

929 1 COLLENDED BIT(1) ALIGNE GLOBALREF, /* YES => collection has ended */ 

930 1 COLL_STATUS FIXED BINARY(31) GLOBALREF, /* COLLECTION_EVENT return status code */ 

931 1 NORRR, FIXED BINARY(31) GLOBALREF, /* MONITOR normal return status */ 

936 1 MULT_TEMP FIXED BINARY(31) GLOBALREF, /* Temp hold area for MCASL_INT_MULT */ 

93 1 TUT ERVAL DEL BIT (64) ALIGNED GLOBALREF, /* Delta time value for Interval */ 

He : SETIMR_STR FIXED BINARY(7) GLOBALREF; /* Count byte for SSETIMR cstring */ 

936 1 Declare 

937 1 FLUSH_IND BIT(1) ALIGNED  GLOBALREF, /* Flush indicator; YES=> perform FLUSH */ 

938 1 FLUSH_COLLS FIXED BINARY(15) GLOBALREF, /* Number of collection events bequeen FLUSH's */ 
orp : FLUSH_CTR FIXED BINARY(15) GLOBALREF; /* Down counter for FLUSH_COLLS * 

941 1 Declare 

ak} 1 CDBPTR POINTER GLOBALREF, /* Pointer to CDB seaaeg Descriptor Block) */ 

94 1 C POINTER DEF INED(CDBPTR), /* Synonym io COBPTR */ 

944 1 MRBPTR POINTER GLOBALREF, /* Pointer to MRB (Hani tor Request Block) */ 

945 1 i POINTER DEF INED(MRBPTR), /* Synonym for MRBPTR */ 

946 1 MCAPTR POINTER GLOBALREF /* Pointer to MCA thontene Communication Area) */ 
947 «1 MC PCINTER DEFINED (RCAPTR) /* Synonym toe MCAPTR */ 

948 1 SPTR POINTER GLOBALREF, /* Pointer to SYI (System Information Area) */ 
Ben : CCDPTR POINTc® GLOBALREF; /* Pointer to CCD (Current Class Descriptor) Array */ 
951 1 Pec lare 

326 1 FILE FILE RECORD INPUT, /* Rentter Input (Playback) File */ 

oe) 1 INPUT CPTR POINTER GLOBALREF, /* Ptr to input buffer count word */ 

338 : INPUT_DATA CHAR(512) VARYING BASED( INPUT _CPTR); /* Playback file input buffer */ 

95 1 

339 1 Bf CURR_CLASS_DESCR (MAX_CLASS_MO+1) BASED(CCDPTR), /* Current Class Descriptor */ 

958: 1 /* This array of structures includes a CCD (Current 
959 : 1 /* Class Descriptor) for each possible class «/ 
960 1 8 CURR_CDBPTR POINT /* CDBPTR for current class */ 

325 : CURR_CLASS_NO FIXED OR INARY(7); /* Class number for current class */ 
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963: 1 /* 

964 ; 1 /* | emcee oeeece @egoeoe eererea eres 2ee (ce Se er a ee ee Se ee ee owe gd ee me ew ce a wm a we ee Fo ae ae on me Te ee Fe + 

302 i ce i GLOBAL STORAGE DEFINITIONS 

H * ! ! 

308 _ /* ! ! 

968 ; 1 /* ' SS Sw Se we Se me ee we @ee eeeeeoeeroe 22 SOAK ANI SOS SSSSMOn Evan seosoe res nr wasn eaewrnwnaaan } 

969 : 1 /*/ 

970 1 

971 | 1 /* 

97 1 /* | eeeoeooene em moan REESE ee Ne Mie BOs moo anrnr aaa rma mamas eae a> ee oe + 

973: 1 /* ! ! 

974 | 1 /* ! COMPILE-TIME CONSTANTS ! 

975; 1 /* ! ! 

976 ] 1 /* ' Se eee S we Remrew oc Bee @wmae we eee wma sea ene2 eee oe ae ce ee ee ms oe See et SP SSP SP Se ee EP we eee er > = eee oe ee es ae me + 

ES a 

979 1 ZREPLACE NOT_SUCCESSFUL BY ‘'0'B; /* Failing status bit */ 

980 1 ZREPLACE YES BY '1°B; /* For general use */ 

re} ; PaTPLAe NO BY 'O'B; /* For general use */ 

; & 

98 . 1 /* ' Whos te an ee ah oe we ee See eme ws weoe seas Sek een asset Eaceaerasanwseseoe we a Se eo ee + 

984; 1 /* ! ! 

985; 1 /* ‘ OWN STORAGE ! 

986; 1 /* ! ! 

987 ; 1 /* ' Dew ewe ano wmose eam nmmae ae ee oe Se ee oe ee ee eS er ene he eo eee ene ne ees + 

988 ; 1 // 

989 1 

990 1 Declare 

991 1 ALL fIx6e BINARY (31) /* Holds function value (return status) of called ro 
99 1 STATUS BIT(1) BASED(ADDR(CALL)), /* Low-order status bit for called routines */ 

99 1 I FIXED BINARY(15), /* Index for DO Loop */ 

994 1 BUFF _PTR POINTER /* Temporary pointer to input file buffer */ 

995 1 CURR_TYPE FIXED BINARY(7), /* Class record type of record just read */ 

996 1 PREV_TYPE FIXED BINARY(7), /* Class record type of record previously read */ 
997 1 PREV_CONT BIT(1) ALIGNED, /* Value of MNR_CLS$V_CONT for record previously rea 
998 1 CLASS_MISSING BIT(1) ALIGNED, /* For Playback, ON =5 requested class not in file * 
1000 } CLASS_F OUND BIT(1) ALIGNED; /* For Playback, ON => requested class found in file 
1001 1 Declare 
1008 1 MON_ERR ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE), /* MONITOR MACRO-32 routine to log synchronous error 
100 1 READ_ INPUT ENTRY (FIXED BINARY(75), /x MONITOR routine to read an input prayeess file 
1004 1 COLLECTION_END ENTRY, /* MONITOR rous ne to indicate end of collection */ 
1005 1 CLASS_COLLECT ENTRY (FIXED BINARY(7)) /* MONITOR MACRO-32 routine to collect a buffer of d 
i ' ! RETURNS(FIXED BINARY(31)); 
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1008 | 1 /* 

1 i [e+e 

1010 | 1 /* 

191, ' ! in FUNCTIONAL DESCRIPTION: 

1918 - is COLLECTION_EVENT 

1015} 1 /* COLLECTION_EVENT is an AST routine invoked via the SDCLAST 

1918 . 3 /* system service from the EXECUTE_REQUEST routine, or via 

1017 | «1 /* the SSETIMR system service from a previous invocation of 

198 +3 /* COLLECTION_EVENT. It performs performance data collection 

1019; #1 /* from VMAS data bases of the running system, or from an 

1020 : 1 /* input receretng file. A single invocation of COLLECTION_EVENT 

1021; 1 /* causes collection of data for all classes in the MONITOR 

10 ¢ 2 /* request. The data is collected by calling the CLASS COLLECT 

1023; 1 /* routine once for each class. CLASS COLLECT stores the data in a 

19 : ! “ collection buffer (pointed to by the COB) fer each class. 

1026 ' 1 /* On the first collection event, class-specific initialization 

et ' : Jo is performed by a call to the CLASS_INIT routine. 

1099 i 4 /* INPUTS: 

1030 ; 1 /* 

1031: 1 /* None 

1038 Pia /* 

1035 : 1 /* IMPLICIT INPUTS: 

1034 ; 1 /* 

IOee ‘ : i ALL MONITOR variables accessible to this routine. 

i989} 4 /* OUTPUTS: 

1038 ; 1 /* 

1039 ; 1 /* None 

1040 : 1 /* 

1041 { 1 /* IMPLICIT OUTPUTS: 

1068 ; 4 /* 

Rez : : A MCASL_COLLCNT is incremented by 1. 

1045 1 /* Data for all requested classes has been collected into 

' : . their respective CDB collection buffers. 

944 ! / ALL MONITOR variables accessible to this routine. 

1050 S / ROUTINE VALUE: 

1036 i 1 /* COLL_STATUS contains the status of this collection event upon 

1053; 1 /* exit. 

1054 ; 1 /* 

1986 ' : s SIDE EFFECTS: 

1987 i : i If this is the final collection event, the COLLENDED bit is set. 
; e 

1059 | 1 /t-- 

1 tin © /*/ 

1061 1 
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IF COLLENDED = YES THEN RETURN; /* If collection has already ended, return immediate 
IF arias 3 PLAYBACK /* Playback Request */ 
IF et COLLCNT = 0 /* If first collection event, */ 
THEN MULT_TEMP = 1; /* ,.. set multiple to trigger on this collection */ 
ag "MULTFRD. = = NO; /* Indicate multiple not yet found */ 
Vr . pul TEMP = 1; /* Count down toward zero */ 
TF “HOLT a = =z 0 /* If it's time to record and display, */ 
MC=>MCASV =MULTFND = YES; /* ... indicate so */ 
MULT_TEMP™= MC=->MCASL _INT_M ‘wm ... and re-load qultiple value for next collectio 
RCADACASL. CONSEC_REC = MCE OMCASL.. CONSEC_REC + 1; /* ... also update to a new consec no for recordi 
BUF F mit cS NES OMCASA_ INPUT_PTR; /* Get pointer to input file buffer for later use */ 
pReV_T YPE = -1; /* Dummy previous record type (class no) */ 
PREV_CONT 40; /* Dummy previous ‘'continue’ bit setting */ 
CLASS “MISSING = 'O'B; /* Class not missing */ 
se i. = 170 R~>MRBSW_ CLASSCT WHILE (* MC->MCASV_EOF & “* CLASS -MISSING) ; /* Loop through all requeste 
CLASS_FOUND = "B; /* Haven't found class yet */ 
EbBPTR = CURR cbaPinc1; /* cee up ‘aaron CDB */ 
iF MC=->MCASL_COLL yg | /* If first collection event */ 
THE N CALE = ELAS. INIT); /* ... then do init for this te 2/ 


DO WHILE (* MC=>MCASV_EOF & “* CLASS_FOUND & “* CLASS_MISSING); /* Aone causes input file to skip past unwan 


- Classes within the recorded interval 
CURR_TYPE = BUFF pao tone CLS$B TYP Get slees’ (record) type of current record */ 


E; /* 
IF scum mB hie: < PREV_TYPED TCURR. ny ® ; CURR_CLASS_NO(I)) | 


ruse i TYPE = PREV_ TYPE & PREV. CONT = “/* Check for missing class (should never occur) */ 
CLASS miss = YES; /* Indicate ‘class missing’ error */ 
L_STATUS = MNRS$_CLASMISS; /* Save failing status */ 
CALL L~MON_ ERR(MNRS? CLASH $$); /* ... and log the error */ 
ELSE DO; 
IF CURR_TYPE = CURR_CLASS_NO(I) /* If inputted class = monitored class */ 
CLASS FOUND = /* Indicate found the record pacers a/ 
CALL _= CLASS cOLLEcr ccunn CLASS_NO(I)); /* Collect data for this clas 
IF oi ROT_SUCCESSFUC /* If collection failed, 
COLL_ STATUS = st COLLERR; /* Save failing status */ 
CALL~MON_ERR(MNR S ACOLLERR, CALL); /* Log the error */ 
CALL t COLLECTION. Fabs /* ... and Sorntente collection */ 
END : 
PREV_TYPE = tURR_T TYPE; /* Current now becomes previous */ 
PREV_CONT = BUFF “PTR=>MNR CLS$V_ CONT; /* Save previous ‘‘continue”’ bit jarring «/ 
eabt “READ_INPUT(SKIP_TO_CCASS); /* Read the next class record * 
END; 
IF MC=>MCASV_EOF { CLASS_MISSING /* If anything but CLASS_FOUND, * 
THEN CALC COLLECTION_END(); /* ... then indicate collection ceil «/ 
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1118 END; 
1119 3 
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1120 IF COLLENDED = NO /« If ond A mata not ingicoted. then scan */ 
1121 3 £@ sse ire t file for the beginni a“ qf the next 
+ ¢ H ren 8 F* ove — Bh “end leave the file positioned there. 
1124 CURR TYPE = BUFF PIR~>HNR CLS$B_TYPE; * Get class (record) type of current record */ 
1125 DO WAILE(* MC->MTASV_EOF & CURR_TYPE > PREV_ TYPE); je Loop while class type numbers increase */ 
1126 4 PREV_TYPE = CURR tYP Current now becomes previous */ 

1127 4 CALL READ_ INPUT (SKIP iz fe R Read the next class record */ 

i 8 4 CURR _TYPE"= BUFF *BTREDAAR mitt e TYPE; /* Get class (record) type of current record */ 
11350 IF MC~>MCASV E /* If end-of-file reached, * 

u : THEN athe COLLECTION. END(); /* ... then indicate so */ 

1 2 , 

11 2 IF MC~>MCASV EOF & MC=>MCASL_COLLCNT = 0 /* If end-of- tite after first collection event, */ 
113? THE /* ... then this is an error */ 

11 COLL STATUS = MNR$_BEGNLEND; /* Save failing status */ 

13 eA MON_ERR(MNRS_BEGNLEND> ; /* ... and log the error */ 

1139 ; 

he 3 END; /* End of Playback Request processing */ 

1142 1 
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MC->MCASL_COLLCNT = 
RETURN; 
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ELSE 00; /* Live Request */ 
MC=>MCASL_CONSEC_REC = MC=>MCASL_CONSEC_REC + 1; /* Update to a new consec no fer recording */ 
IF M->MRBSV_RECORD /* If recordin "9. «/ 
THEN FLOSH. CTR = FLUSH_CTR = 1; /* Decrement flush counter for this coll event */ 
DC 1 = 1 TO M=>MRBSW_CLASSCT WHILE (COLLENDED = NO); /* Loop once for each requested class */ 
CDEPTR = CURR_CDBPTRT]I); /* Set up current CDB */ 
IF “C->MCASL_COLLCNT = 6 /* If first collection event */ 
THE N CALC = CLASS. INITQ); /* ... then do init for this class */ 
IF FLUSH_CTR = 0 & CURR_CLASS_NO(I) = MC=>MCASB__ASTC /* If FLUSH_CTR reached zero, and this is Last cl 
THEN DO; * ... then time to flush */ 
FLUSH_ IND = /* Indicate flush required */ 
pen. CTR = rogH. COLLS; /* ... and start down pon. at beginning again */ 
CALL _= CLASS COLLECT(CURR_CLASS_NO(1)); /* Collect data for this gyeee «/ 
IF st aS : RoT_s UCCESSFUC /* If collection failed, 
N eOiL. STATUS = MNRS$ /* Save failing status «/ 
CALL~MON_ERR(MNR$ COLLERR, RéaLL: /* Log the error */ 
CALL COLCECTION_END< /* ... and terminate collection */ 
END; : 
IF a + = NO /* If not at end of collection, */ 
CALL = SYS$SETIMR(COLL EV_FLAG, INTERVAL_DEL, COLLECTION. EVENT,) 
/* Reventer COLLECTION. EVENT at specified interval * 
i: COLL LAG is not used; it is just a dummy */ 
IF os. NOT_SUCCESSFUL * If SSETIMR failed, */ 
COLL STATUS = MNR$_SSERROR; /* Save failing status */ 
CALL MON_ERR(MNRS SSERROR, CALL, SETIMR_ STR): /* Log the error */ 
CALL COLCECTION_ERD() /*-,.. and terminate collection */ 
END; : 
END; /* End of Live Request processing */ 
MC=>MCASL_COLLCNT + 1; /* 


/* 


Count this collection event */ 
Return to caller */ 
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1186 1 CLASS_INIT: Procedure Returns(fixed binary(31)); /* Class-specific initialization */ 

1188 ' /* 

1189 ; / eee 

1190 : / 

1191 | /* FUNCTIONAL DESCRIPTION: 

1136 } /* 

113? H . CLASS_INIT 
; * 

1195 } /* This routine is called by COLLECTION_EVENT on the first 

11 : /* collection event to perform class-specific initialization. 

1197 } /* Currently, the MODES, PROCESSES, DISK, DLOCK and SYSTEM 

1198 ; /* classes require such initialization. 

1199 | /* 

1200 | /* INPUTS: 

1201 } /* 

1 4 H /* None 

1203 } /* 

1204 } /* OUTPUTS: 

1205 | /* 

1296 } /* None 

1207 } /* 

: 4 : a IMPLICIT OUTPUTS: 

15i9 : a Initialization for the MODES, PROCESSES, DISK, DLOCK and SYSTEM classes performed: 
, w 

isi¢ : /* ROUTINE VALUE: 

1213 i 2 /* 

Far am /* SS$_NORMAL 

1215 } /* 

1gi¢ : /* SIDE EFFECTS: 

1217 | /* 

1218 } /* None 

1219 | 2 /* 

1220 | 2 /[t-- 

\$$) : § /*/ 

1222 
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1223 : /* 

1 4 , /* ! oe eS we (eee ee ee eee om me me @geeeacercoeoe een ww nw ew Bw BeBe wee BOB ee wD DE RO wD BOM Oe Se Se eee eee oe Sw A woh 

1 r : /* ' ' 

q H /* } AL STORA ' 

1559 | ‘ LOCAL STORAGE 

1 8 : /* 4 some ~weec er Oe eee ee Sm wwe ee we em & oe me ee (GR ee em em om ee ee mm oe Seeeeeeaneaaeaeo (ee ee ee es ee me de 

1229 | /*/ 

1230 

1231 Declare 

1 ¢ PROCS_CLSNO FIXED BINARY(31) GLOBALREF VALUE, /* PROCESSES class number */ 

1 MODES _CLSNO FIXED BINARY(31) GLOBALREF VALUE, /* MODES class number */ 

1 DISK_CLSNO FIXED BINARY(31) GLOBALREF VALUE, /* DISK class number */ 

1235 DLOCR_CLSNO FIXED BINARY(31) GLOBALREF VALUE, /* DLOCK class number */ 

1$38 SYSTEM_CLSNO FIXED BINARY(31) GLOBALREF VALUE, /* SYSTEM class number */ 

1237 TOP_RANG FIXED eet of GLOBALREF VALUE, /* Range value for TOPB, TOPD, TOPF bar graph */ 

1$38 § MODES_STRLEN FIXED BINARY(31) GLOBALREF VALUE; /* Length of “Interrupt Stack’’ string */ 

1246 2 Declare 

124) 2 IDBPTR POINTER, /* Pointer to Item Descriptor Block (IDB) */ 

ists 2 ITMSTR (1:C->CDBSL_ICOUNT) BIT(8) ALIGNED BASED(C->CDBSA_ITMSTR), /* Vector of item numbers for this class */ 

124 2 ITEM_IDX FIRED BINARY(15), /* Index into IDB_BLOCK */ 

Fr: 2 ITE FIXED BINARY (7); /* Item number used in DO Loop */ 

154é 3 Declare 

1247 1 PERFTABLE GLOBAL RES /* Table of IDB": */ 

1¢e3 § 2 IDB_BLOCK (0:255) CHAR(IDBSK_ILENGTH); /* Up to 256 iDB's */ 

1359 r4 Declare . 

1251 2 1 PINTERRUPT_STR BASED(IDBPTR->IDBSA_LNAME), /* Counted string for ‘Interrupt Stack PRIMARY’ */ | 
1636 2 2 L FIXED BINARY(7), /* Count */ 
\$2 § 2 S CHAR(1); /* First character of string */ 
1388 2 Declare 

13236 § REVLEVELS (0:127) FIXED BINARY(7) GLOBALREF; /* Revision Levels Vector */ | 
1258 2 Declare 
1259 2 1 DIR_-STR  BASED(IDBPTR->IDBSA_LNAME) , /* Counted string for ‘Directory’’ items in DLOCK */ | 
1260 2 § L FIXED BINARY(7), /* Count */ 

1261 2 X CHAR(17), /* Uninteresting characters of string */ 

1 o¢ 2 2 S CHAR(5); /* Characters of interest */ 

126 2 

1264 2 Declare 

i 65 PROCTITLE (0:127) GLOBALREF POINTER; /* Table of pointers to PROCESSES screen titles */ 

1 6 Declare - 
1268 1 BU_SYS_SINGLE GLOBALREF , /* Bar graph range values for SYSTEM class (single s | 
4 2 BSS_RANGE (1:17) FIXED BINARY(31); 
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1 4! IF is HAN pea NO(I) = MODES_CLSNO /* If MODES class, */ 

127 C=>CDBSV_CPU_COMB = NO; /* Assume no CPU =e necessary */ 
1274 MC->MCASA_MPADDR = MULL (4 /* Indicate no MP address * 

1275 UNSPECCITER IDX) = ITMSTR(1); /* Zero-extend ITMSTR elenent to word */ 

127 IDBPTR = ADBR(IDB_BLOCK(ITEM_IDX)); /* Set up IDB ptr in order to */ 

1277 | /* ... reference PINTERRUPT. STR «/ 
1278 PINTERRUPT_STR.L = MODES on /* Get length of ‘Interrupt Stack’’ string */. 
1279 IF SPTR=>MAR revise _MPCPUS /* Check if monitored system a multiprocesso 
1280 THEN 0O;~ /* Multiprocessor system */ 
1281 4 C=>CDBSL_ ICOUNT = co rcoesL.! ICOUNT * /* Increase number of collected items */ 

1 a 4 SPTR=>MNR_SYISB_MPCPUS; 

128 4 C->CDBSW_BLKLEN = oor keem BLKLEN™* /* ... and size of coll buff data block */ 
1588 4 SPTR=>MNR_SYISB_MPCPUS; 

1285 4 IF C=>CDBSV_CPU & ac oRRaSy _SYSCLS"= NO & M->MRBSV_MFSUM = A... /* If CPU-specific display requested 
1286 | 4 /* AND SYSTEM class not being monitored, */ | 
ise? 4 THEN DO; /* AND not multi-file summary, */ 
isos : C-3CDBSL_ ECOUNT = C=->CDB$L_ICOUNT; /* Increase number of displayed elements */ _ 
it 4 ELSE DO; /* Combined display */ 
1291 : C=>CDBSV_ CPU_COMB = YES; /* Indicate that collected Vtens must be */ | 
1636 H /* .,. combined for disp Pack’ d 
129 5 PINTERRUPT_STR.L = PINTERRUPT_STR.L = 10; /* Shorten “Interrupt Stack’’ etsplay string 
1294 } é /* ... to remove the word ‘PRIMARY’ */ | 
1295 END; 

1296 4 END; 
1297 3 ELSE /* Uniprocessor system */ Son. 
1298 3 PINTERRUPT_STR.L = PINTERRUPT_STR.L = 10; /* Shorten ‘‘Interrupt Stack'’ Gteplay string | 
1299 | /* ... to remove the word ‘PRIMA «/ 
1300 3 END; 

1308 2 IF cyan CLASS_NO(I) = PROCS_CLSNO /* If PROCESSES class, */ 
1308 ; C->CDBSA_TITLE = PROCTITLE(C->CDBS$B_ST); /* Set up ptr to title for requested display 
1306 3 IF C=>CDB$B_ST = TOPC_PRO xe /* If TOPCPU Steph ay. */ «/ 

1307 ; THEN C-SCDBSL RANGE = /* Set range to 

fs ; ELSE C->CDBS$L_RANGE = TP! RANGE; /* Set range for other TOP displays */ 

1310 3 END; 

1311 2 
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F CURR 
& REVLEVELS(BISK 
THEN eo3 


LSNO /* If DISK class ... */ 
/* ... AND it is any rev level after 0, */ 


/* then indicate DISK with allocation clas. 
1 /* If any rev level after «/ 
YES; /* then indicate DISK with volume names 

VN = NO; /* else indicate not */ 


Ommnn 
AAS: 
<= 
=z 
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C=>CDBSV_DISKAC = NO; /* else indicate no alloc class in name, * 
ee = NO; /* 42. and no volume name */ 
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/* If DISK class ... */ 

/* ... AND it's not m.f. summary, */ 

& C->CDB$B_ST = ALL_STAT /* ... AND all stats requested, */ 
THEN C-SCOBSV_WIDE = YES; /* then indicate wide display, */ 
ELSE C=>CDBSV_WIDE = NO; /* else indicate usual width */ 


IF CURR_CLASS_NO(I) = DLOCK_CLSNO /* If DLOCK class ... */ 
& REVLEVELS(DLOCK_CLSNO) = /* ... AND it is rev level 0, */ 


A WARITURINIPUPO POPUPS 2 2 
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END; /* End of DO Loop */ 
tNnD; 


3 
oH DO ITEMNO = 13 TO 15 BY 1; /* Change text for last three items */ 
337 UNSPECCITEM_ IDX) = ITMSTR(ITEMNO); /* Zero-extend ITMSTR element to word */ 
338 IDBPTR = ADBR(IDB_BLOCK (ITEM_IDX)5; /* Set up IDB ptr _ in order to */ 
339 /* ... reference DIR_STR */ 
340 IF SPTR->MNR_SYISV_RESERVED1 /* If this is directory node, */ 

1 THEN DIR_STR.S = ‘Incom'; /* then rates are ‘Incoming’ */ 

¢ ELSE DIR_STR.S = ‘Outgo'; /* else they are ‘‘Outgoing™ */ 

4 

5 

6 
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1 3 IF CURR CLASS_NO(I) = SYSTEM CLSNO 

1 H Bsé RANGE (14) = SPTR=>MNR_SYISL_BALSETMEM; 
5 BSS RANGE (15) = SPTR=>MNR7SYISL-MPWHILIM; 
1382 

25 RETURN(NORMAL) ; 

1 37 : END CLASS_INIT; 

1359S 1 END COLLECTION_EVENT; 

COMMAND LINE 
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/* If SYSTEM class, */ 


/* Stash away range of Free List bar F aa . 


/* ... and Modified List bar graph */ 
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